home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / Educ / Calc / MathPad 2.35.sit / XFuns / XFun kit / callback.c next >
Encoding:
C/C++ Source or Header  |  1995-04-23  |  2.3 KB  |  111 lines  |  [TEXT/KAHL]
  1. /* define callback routines */
  2.  
  3. #include "xfuns.h"
  4. #include "callback.h"
  5.  
  6. void AddXfun(char *name,char *parms,funptr entry,void (*predef)(),funptr callback)
  7. {
  8.    (*callback)((long)ADDXFUN,name,parms,entry,predef);
  9. }
  10.  
  11. void AddFunDim(char *name,long lim,funptr callback)
  12. {
  13.    (*callback)((long)ADDFUNDIM,name,lim);
  14. }
  15.  
  16. void ErrMsg(char *fmt,char *str,funptr callback)
  17. {
  18.    (*callback)((long)ERRMSG,fmt,str);
  19. }
  20.  
  21. void FreeExpr(EXPR xpr,funptr callback)
  22. {
  23.    (*callback)((long)FREEXPR,xpr);
  24. }
  25.  
  26. BOOL EvalExpr(EXPR xpr,extended *num,funptr callback)
  27. {
  28.    return((*callback)((long)EVALEXPR,xpr,num));
  29. }
  30.  
  31. BOOL GetExprMatrix(EXPR xpr,extended **mat,long *cols,long *rows,funptr callback)
  32. {
  33.    return((*callback)((long)GETEXPRMATRIX,xpr,mat,cols,rows));
  34. }
  35.  
  36. BOOL GetParmVal(long n,extended *num,funptr callback)
  37. {
  38.    return((*callback)((long)GETPARMVAL,(long) n,num));
  39. }
  40.  
  41. void MakeParmExpr(long n,EXPR *xpr,funptr callback)
  42. {
  43.    (*callback)((long)MAKEPARMEXPR,(long) n,xpr);
  44. }
  45.  
  46. BOOL ProbeExpr(EXPR xpr,extended *num,BOOL *isarray,long *count,funptr callback)
  47. {
  48.    return((*callback)((long)PROBEXPR,xpr,num,isarray,count));
  49. }
  50.  
  51. BOOL GetParmName(long n,char **name,funptr callback)
  52. {
  53.    return((*callback)((long)GETPARMNAME,(long) n,name));
  54. }
  55.  
  56. void AddIndex(EXPR *xpr,extended **iptr,funptr callback)
  57. {
  58.    (*callback)((long)ADDINDEX,xpr,iptr);
  59. }
  60.  
  61. void RemoveIndex(EXPR *xpr,funptr callback)
  62. {
  63.    (*callback)((long)REMOVEINDEX,xpr);
  64. }
  65.  
  66. BOOL GetVarVal(char *name,extended *num,funptr callback)
  67. {
  68.    return((*callback)((long)GETVARVAL,name,num));
  69. }
  70.  
  71. void MakeVarExpr(char *name,EXPR *xpr,funptr callback)
  72. {
  73.    (*callback)((long)MAKEVAREXPR,name,xpr);
  74. }
  75.  
  76. BOOL SetVarVal(char *name,extended num,funptr callback)
  77. {
  78.    return((*callback)((long)SETVARVAL,name,&num));    /* callback parm must be ptr size */
  79. }
  80.  
  81. BOOL SetVarMatrix(char *name,extended *arr,long cols,long rows,funptr callback)
  82. {
  83.    return((*callback)((long)SETVARMATRIX,name,arr,cols,rows));
  84. }
  85.  
  86. void FoldVar(char *name,long lim,funptr callback)
  87. {
  88.    (*callback)((long)FOLDVAR,name,lim);
  89. }
  90.  
  91. BOOL Stopped(funptr callback)
  92. {
  93.    return((*callback)((long)STOPPED));
  94. }
  95.  
  96. void SpinWatch(funptr callback)
  97. {
  98.    (*callback)((long)SPINWATCH);
  99. }
  100.  
  101. void SetPlotPICT(PicHandle thePic,funptr callback )
  102. {
  103.    (*callback)((long)SETPLOTPICT,thePic);
  104. }
  105.  
  106. void GetVarString(char *name,char **str,funptr callback )
  107. {
  108.    (*callback)((long)GETVARSTRING,name,str);
  109. }
  110.  
  111.